#Region "using directives"
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
#End Region
Namespace MapiApplication
	Public Partial Class RenameProfile
	Inherits Form
		#Region "Constructors"
		Public Sub New()
		End Sub
		Public Sub New(ByVal selectedProfile As String)
			InitializeComponent()
			lblExistingProfileCopyProfile.Text = selectedProfile
		End Sub
		#End Region
		#Region "Helper Methods"
		Public ReadOnly Property TbxBoxValue() As String
			Get
				Return Me.tbxCopyProfileName.Text
			End Get
		End Property
		#End Region
		#Region "Event Handlers"
		Private Sub RenameProfile_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
			If e.KeyCode = Keys.Escape Then
				Me.Close()
			End If
		End Sub
		Private Sub tbxRenameProfileName_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
			If tbxCopyProfileName.Text IsNot Nothing Then
				btnOkCopyProfile.Enabled = True
			Else
				btnOkCopyProfile.Enabled = False
			End If
		End Sub
		#End Region
	End Class
End Namespace
